﻿Public Class frmPruebaspirante
    Private proc As Process
    Private processes As Process
    Private idProceso As Integer = 0

    Private Sub tmrLogSoft_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLogSoft.Tick
        'processes = Process.GetProcessById(Me.idProceso)

        'If processes.

        'For Each proc In processes
        'MsgBox(proc.ProcessName)
        'MsgBox(proc.)
        'itemAdd = ListView1.Items.Add(proc.MainWindowTitle)
        'itemAdd.SubItems.Add(proc.Id.ToString)
        'Next
    End Sub


    

    Private Sub frmPruebaspirante_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If mdlIntegracion.lngIdProceso <> 0 And mdlIntegracion.intIdaspirante <> 0 Then
            Dim dstRecord As New DataSet
            Dim arrRsAspirante As Array
            Dim arrRsDatoaspirante As Array
            Dim idDepartamento As String, nmDepartamento As String, dtFecha As Date

            dstRecord.Tables.Add("Persona")
            dstRecord.Tables.Add("Aspirante")
            dstRecord.Tables.Add("Procesotramite")

            'Datos Generales del aspirante
            mdlCRUD.loadRecord(dstRecord, "Persona", "persona", "persona_id = '" & mdlIntegracion.intIdaspirante & "'", Nothing)

            arrRsAspirante = dstRecord.Tables("Persona").Rows(0).ItemArray.ToArray

            Me.txtNumerodocumento.Text = arrRsAspirante(1).ToString
            Me.txtTipodocumento.Text = mdlFunciones.getReferencia("tipodocumento", "tipodocumento_id", arrRsAspirante(2).ToString, 1)
            Me.txtNombre.Text = arrRsAspirante(3).ToString & " " & arrRsAspirante(4).ToString
            Me.txtApellido.Text = arrRsAspirante(5).ToString & " " & arrRsAspirante(6).ToString

            dtFecha = arrRsAspirante(7)
            Me.txtEdad.Text = mdlFunciones.getEdad(dtFecha)
            Me.txtGruposanguineo.Text = mdlFunciones.getReferencia("tiposangre", "tiposangre_id", arrRsAspirante(9).ToString, 1) & mdlFunciones.getReferencia("rh", "rh_id", arrRsAspirante(10).ToString, 1)
            Me.txtGenero.Text = mdlFunciones.getReferencia("sexo", "sexo_id", arrRsAspirante(11).ToString, 1)

            '0:          persona_id()
            '1:          persona_documento()
            '2:          tipodocumento_id()
            '3:          persona_prinombre()
            '4:          persona_segnombre()
            '5:          persona_priapellido()
            '6:          persona_segapellido()
            '7:          persona_fechanacimiento()
            '8:          persona_lugarnacimiento()
            '9:          tiposangre_id()
            '10:         rh_id()
            '11:         sexo_id()
            '12:         aspirante_fechaexpedicion()
            '13:         persona_lugarexpedicion()


            'Datos Basicos de registro del aspirante
            mdlCRUD.loadRecord(dstRecord, "Aspirante", "aspirante", "persona_id = '" & mdlIntegracion.intIdaspirante & "' And aspirante_numeroproceso = '" & mdlIntegracion.lngIdProceso & "'", Nothing)

            arrRsDatoaspirante = dstRecord.Tables("Aspirante").Rows(0).ItemArray.ToArray

            Me.txtGradoescolaridad.Text = mdlFunciones.getReferencia("nivelescolaridad", "nivelescolaridad_id", arrRsDatoaspirante(8).ToString, 1)
            Me.txtOcupacion.Text = mdlFunciones.getReferencia("ocupacion", "ocupacion_id", arrRsDatoaspirante(9).ToString, 1)

            '0:          aspirante_id()
            '1:          persona_id()
            '2:          aspirante_numeroproceso()
            '3:          aspirante_fecharegistro()
            '4:          aspitante_horaregistro()
            '5:          ciudad_residencia()
            '6:          aspirante_direccion()
            '7:          aspirante_correoelectronico()
            '8:          nivelescolaridad_id()
            '9:          ocupacion_id()
            '10:         estadocivil_id()
            '11:         aspirante_movil()
            '12:         aspirante_telefono()
            '13:         aspirante_nombreacompanante()
            '14:         aspirante_telefonoacompanante()
            '15:         epsarp_id()
            '16:         aspirante_senialesparticulares()
            '17:         aspirante_observacion()


            'Datos Basicos de registro del aspirante
            mdlCRUD.loadRecord(dstRecord, "Procesotramite", "vistaprocesotramite", "aspirante_id = '" & arrRsDatoaspirante(0) & "'", Nothing)

            'Lista de Tramites
            Me.dgvTramite.DataSource = dstRecord.Tables("Procesotramite")
            Me.dgvTramite.Columns(0).Visible = False
            Me.dgvTramite.Columns(1).Visible = False
            Me.dgvTramite.Columns(2).Visible = False
            Me.dgvTramite.Columns(4).Visible = False
            Me.dgvTramite.Columns(6).Visible = False
            Me.dgvTramite.Columns(8).Visible = False
            Me.dgvTramite.Columns(10).Visible = False

            Me.dgvTramite.Columns(3).HeaderText = "Categoria"
            Me.dgvTramite.Columns(5).HeaderText = "Tramite"
            Me.dgvTramite.Columns(7).HeaderText = "Servicio"
            Me.dgvTramite.Columns(9).HeaderText = "Objetivo"
            Me.dgvTramite.Columns(11).HeaderText = "Estado proceso"

            Me.dgvTramite.Columns(3).Width = 100
            Me.dgvTramite.Columns(5).Width = 150
            Me.dgvTramite.Columns(7).Width = 200
            Me.dgvTramite.Columns(9).Width = 150
            Me.dgvTramite.Columns(11).Width = 100



            'Me.pcbFoto.Image = Image.FromFile(mdlHerramientas.strRutafotografia & "\fto" & arrRsAspirante(1).ToString & "_" & arrRsDatoaspirante(2).ToString & ".jpg")
            'SetImage(Me.pcbFoto)
        End If
    End Sub
End Class